Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/card_38490.txt

Text File | 1990-08-07 | 5.9 KB | 284 lines

-- card: 38490 from stack: in.0-2
-- bmap block id: 54750
-- flags: 0000
-- background id: 27044
-- name: business
----- HyperTalk script -----
-- This handler performs the animation.
on doAnimation
  reset
  screenToDo
  zoomRect the rect of btn "THISRECT", the rect of btn "scenarioMask"
  showScenario
  wait 40
  animatePeople
  zoomRect the rect of btn "scenarioMask", the rect of btn "thisRect"
  reset
  show cd btn "See It Again"
end doAnimation

-- This handler resets the animation.
on reset
  lock screen
  show cd fld "mask2"
  show btn "scenarioMask"
  show btn "scenarioMask2"
  hide btn "scissors"
  hide cd btn "See It Again"
  unlock screen with dissolve
end reset

----------------------------
-- These are mini animations used by doAnimation.
on screenToDo
  repeat for 2
    repeat with n = 1 to 4
      set the icon of btn "thingshappen" to ("disturbance" & n)
      wait 10
    end repeat
  end repeat
  set the icon of btn "thingshappen" to 0
end screenToDo

on showScenario
  hide cd fld "mask2"
  hide btn "scenarioMask2"
  hide btn "scenarioMask"
end showScenario

on animatePeople
  lock screen
  show btn "scenarioMask"
  put "0" into cd fld "showFld"
  unlock screen with dissolve slow
  repeat with n = 0 to 8
    put n into cd fld "showFld"
    wait 20
  end repeat
  repeat with n = 5 to 8
    put n into cd fld "showFld"
    wait 20
  end repeat
  put "9" into cd fld "showFld"
  wait 30
  repeat for 5
    put ":" into cd fld "showFld"
    wait 5
    put ";" into cd fld "showFld"
    wait 5
  end repeat
  put "0" into cd fld "showFld"
  lock screen
  put empty into cd fld "showFld"
  hide btn "scenarioMask"
  show btn "scenarioMask2"
  show cd fld "mask2"
  unlock screen with dissolve slow
end animatePeople

topMask: 170,80,226,92
rightMask: 225,91,237,160
bottomMask: 170,159,226,171
left Mask:159,90,171,160




-- part 2 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=172 top=93 right=159 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ScenarioMask


-- part 20 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=170 top=91 right=160 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ScenarioMask2


-- part 9 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=228 top=132 right=171 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 28467 / 28467
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask2


-- part 10 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=258 top=132 right=171 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 28467 / 28467
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask3


-- part 11 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=216 top=82 right=135 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask1


-- part 12 (button)
-- low flags: 80
-- high flags: 8000
-- rect: left=208 top=119 right=146 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ___________


-- part 13 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=111 top=96 right=135 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 15248 / 15248
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: scissors


-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=122 top=114 right=126 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thisRect


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=237 top=78 right=132 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 174
-- text size: 14
-- style flags: 256
-- line height: 15
-- part name:


-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=156 top=123 right=149 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask2


-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=171 top=89 right=154 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 214
-- text size: 80
-- style flags: 0
-- line height: 80
-- part name: showFld


-- part 19 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=57 top=172 right=189 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: See It Again
----- HyperTalk script -----
-- This handler resets the animation and shows it again.
on mouseUp
  set cursor to none
  reset
  unlock screen
  doAnimation
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=114 top=108 right=133 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thingsHappen


-- part contents for card part 16
----- text -----
HyperCard puts simulation & learning tools at your fingertips.

-- part contents for card part 17
----- text -----
___________